home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 26
/
AMIGAplus Sonderheft 26 (2000)(Falke)(DE)(Track 1 of 2)[!].iso
/
Tools
/
SFX-Player
/
MelodyRecGUI
/
MelodyRecGUI-de
next >
Wrap
Text File
|
1999-03-29
|
6KB
|
289 lines
/* $VER: MelodyRec.rexx 1.0.4 (14.02.1999) © mEDi of dSd E-Mail:mEDi_dSd@GMX.DE */
/*
22.01.99 V1.0.1 Erste laufende version
24.01.99 V1.0.2 2 mini Bugs durch Ramboy@USA.NET behoben
25.01.99 V1.0.3 erste veröffentlichte Version
14.02.99 V1.0.4 Englische Version (RAMBOY) und Fehler behoben (RAMBOY)
*/
/* rexxsupport.library öffnen */
IF ~SHOW('LIBRARIES','rexxsupport.library') THEN
IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
say "Konnte das rexxsupport.library nicht öffnen"
EXIT(10)
END
Signal On Syntax
Signal On IOErr
Signal off failure
CALL PRAGMA("PRIORITY",1)
/* rexxreqtools.library öffnen */
IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
IF ~ADDLIB('rexxreqtools.library',10,-30,0) THEN
EXIT(10)
IF ~SHOW('LIBRARIES','tritonrexx.library') THEN DO
IF ~ADDLIB('tritonrexx.library',5,-30,0) THEN DO
SAY 'Kann die <tritonrexx.library> nicht öffnen!'
EXIT(10)
END
END
OPTIONS RESULTS
Version = "1.0"
Release = "4"
DATE = "14.02.1999"
NL = '0a'x
MainProgramm = "MelodyRec" /* MelodyRec pfade z.B. "sys:pro/MelodyRec" usw. */
main_UNIT = "0" /* def audiounit */
main_AudioName = "mel1200audio.device" /* def audioname */
main_BITS_LIST.0 = 3
main_BITS_LIST.1 = 8
main_BITS_LIST.2 = 16
main_BITS_LIST.3 = 32
call init_windows
app = TR_CREATEAPP('TRCA_Name MelodyRec.rexx',
'TRCA_LongName "MelodyRec GUI © MEDI [_- DSD -_]"',
'TRCA_Info "MelodyRec GUI"',
'TRCA_Version 'Version,
'TRCA_Release 'Release,
'TRCA_Date 'DATE,
'TAG_END')
IF app ~= '00000000'x THEN DO
window = TR_OPENPROJECT(app,windowtags)
IF window ~= '00000000'x THEN DO
ende = 0
DO WHILE ende ~= 1
CALL TR_WAIT(app,'')
DO WHILE TR_HANDLEMSG(app,'event')
/*say '************'
say event.trm_class
say event.trm_id
say '*************'*/
/* 'TRMS_ACTION' START */
IF event.trm_class = 'TRMS_ACTION' THEN DO
SELECT
/* QUIT */
WHEN event.trm_id = 1 THEN ENDE = 1
/* SELECT new file */
WHEN event.trm_id = 21 THEN call select_new_file
/* RUN */
WHEN event.trm_id = 30 THEN call RUN_melodyREC
/* 'TRMS_ACTION' END */
OTHERWISE
NOP
END
END
IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN
ende = 1
END
END
CALL TR_CLOSEPROJECT(window)
END
CALL TR_DELETEAPP(app)
END
EXIT
/***********************************************************************************/
/**********************************************************************************/
select_new_file:
main_new_files = rtfilerequest(, , "Bitte neuen Dateinamen angeben", ,"rtfi_buffer=true rtfi_matchpat=(#?")
if main_new_files = "" then return
call TR_SETATTRIBUTE(window,20,'TROB_String',main_new_files)
Return
RUN_melodyREC:
/* FILENAME/A,AUDIONAME/K,AUDIOUNIT/N/K,BITS/ */
main_FILENAME = '"'TR_GetAttribute(window,20,'TROB_String')'"'
main_AUDIONAME = TR_GetAttribute(window,10,'TROB_String')
main_AUDIOUNIT = TR_GetAttribute(window,11,'TROB_String')
dummy = TR_GetAttribute(window,12,'TRAT_Value')+1
main_BITS = main_BITS_LIST.dummy
if main_FILENAME = '"'||'"' | main_AUDIONAME = "" | main_AUDIOUNIT = "" then return
say "RUN" MainProgramm main_FILENAME "audioname" main_AUDIONAME "audiounit" main_AUDIOUNIT "bits" main_BITS
address command "RUN" MainProgramm main_FILENAME "audioname" main_AUDIONAME "audiounit" main_AUDIOUNIT "bits" main_BITS
call rtezrequest( "Stop drücken"NL,
"um Aufnahme"NL,
"abzubrechen",
, " _STOP ","MelodyRec GUI", ,
"rtez_flags=ezreqf_centertext rtez_defaultresponse=0")
address command "kill" "melodyRec"
Return
/* Error Log funktion © 1996-99 mEDi of dSd **********************************/
SYNTAX:
IOERR:
failure:
error_num = rc
error_Sigl = Sigl
if exists("s:Error_text_D.txt") then
call READLINES("s:Error_text_D.txt",error_num,1,"%s %1024c",dummy error_txt_d)
error_log_msg.0 = 8
error_log_msg.1 = "*************************************************"
error_log_msg.2 = "Fehler "error_num" in Zeile:" Sigl
error_log_msg.3 = "- Zeile wo der fehler aufgetreten ist -----------"
error_log_msg.4 = SOURCELINE(sigl)
error_log_msg.5 = "- Erleuterung -----------------------------------"
error_log_msg.6 = "Deutsch : "error_txt_d.1
error_log_msg.7 = "Original: "ERRORTEXT(error_num)
error_log_msg.8 = "Programm: MelodyRec.rexx V"Version"."Release" ("DATE")"
if ~WRITEFILE("t:Error.log",error_log_msg,append) THEN
call WRITEFILE("t:Error.log",error_log_msg,)
do i = 1 to error_log_msg.0
say error_log_msg.i
end
if app ~= "APP" then
CALL TR_DELETEAPP(app)
EXIT
INIT_Windows:
windowtags = WindowID(1),
WindowTitle('MelodyRec GUI v'Version||Release" ("DATE")"),
windowPosition(TRWP_DEFAULT),
'VertGroupA',
'Space',
NamedSeparator(' © 1999 mEDi of dSd'),
'Space',
'HorizGroup',
'HorizGroup',
'Space',
text3("AudioName: ") 'Space' StringGadget(main_AudioName,10) 'TRAT_Value 32',
'Space',
'EndGroup',
'Space',
'HorizGroup' ,
'Space',
text3("UNIT:") StringGadget(main_UNIT,11) 'TRAT_Value 2',
'Space',
text3("BITS"),
'Space',
CycleGadget('main_BITS_LIST',1,12),
'Space',
'EndGroup',
'Space',
'EndGroup',
'Space',
'HorizGroupA',
'Space',
text3("File: "),
'Space',
StringGadget("",20) 'TRAT_Value 256',
'Space',
GetFileButton(21),
'Space',
'EndGroup',
'Space',
'HorizGroupS',
'Space',
Button("Aufnahme",30),
'Space',
Button("Beenden",1),
'Space',
'EndGroup',
'Space',
'EndGroup',
'EndProject'
return